home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / pref / tixmkpref < prev    next >
Text File  |  2002-09-21  |  10KB  |  382 lines
  1. #!/usr/bin/tclsh
  2. # Undocumented program. Don't use it.
  3. #
  4. # Usage:
  5. # 
  6. #     tixmkpref option name.src > name.tcl
  7. #
  8.  
  9. proc tixDefOption {classes specs {level \$tixOption(prioLevel)}} {
  10.     global isFont tixOption
  11.  
  12.     foreach class $classes {
  13.     foreach spec $specs {
  14.         if [regexp (Font)|(font) $spec] {
  15.         if {$isFont} {
  16.             puts "option add *$class$spec $level"
  17.         }
  18.         } else {
  19.         if {!$isFont} {
  20.             set aspec [subst $spec]
  21.             puts "option add *$class$spec $level"
  22.         }
  23.         }
  24.     }
  25.     }
  26. }
  27.  
  28. proc option {classes specs {level \$tixOption(prioLevel)}} {
  29.     tixDefOption $classes $specs $level
  30. }
  31.  
  32. proc tixInitOptionDatabase {strictTK} {
  33.     global tixOption isFont
  34.  
  35.     # general stuff, everything gets these defaults unless otherwise specified
  36.     #-------------------------------------------------------------------------
  37.     tixDefOption {""} {{Font            $tixOption(font)}}
  38.     tixDefOption {""} {{font            $tixOption(font)}}
  39.  
  40.     tixDefOption {""} {{background         $tixOption(bg)}}    10
  41.     tixDefOption {""} {{Background        $tixOption(bg)}}
  42.     tixDefOption {""} {{background        $tixOption(bg)}}
  43.     tixDefOption {""} {{Foreground        $tixOption(fg)}}
  44.     tixDefOption {""} {{foreground        $tixOption(fg)}}
  45.     tixDefOption {""} {{activeBackground    $tixOption(active_bg)}}
  46.     tixDefOption {""} {{activeForeground    $tixOption(active_fg)}}
  47.     tixDefOption {""} {{HighlightBackground    $tixOption(bg)}}
  48.     tixDefOption {""} {{selectBackground    $tixOption(select_bg)}}
  49.     tixDefOption {""} {{selectForeground    $tixOption(select_fg)}}
  50.     tixDefOption {""} {{selectBorderWidth    0}}
  51.  
  52.     #----------------------------------------
  53.     # Standard TK Widget Options
  54.     #
  55.     # We set up the options for the TK widgets only if
  56.     # the strictTK option is not selected.
  57.     #----------------------------------------
  58.  
  59.     tixDefOption {Menu TixMenu} {
  60.     {.font            $tixOption(menu_font)}
  61.     {.selectColor        $tixOption(selector)}
  62.     }
  63.  
  64.     tixDefOption {Menubutton} {
  65.     {.font            $tixOption(menu_font)}
  66.     {.padY            5}
  67.     }
  68.  
  69.     tixDefOption {Button} {
  70.     {.borderWidth        2}
  71.     {.anchor        c}
  72.     }
  73.  
  74.     tixDefOption {Checkbutton Radiobutton} {
  75.     {.selectColor        $tixOption(selector)}
  76.     }
  77.  
  78.     tixDefOption {Entry} {
  79.     {.relief        sunken}
  80.     {.highlightBacground    $tixOption(bg)}
  81.     {.background        $tixOption(input1_bg)}
  82.     {.foreground        black}
  83.     {.insertBackground    black}
  84.     }
  85.  
  86.     tixDefOption {Label} {
  87.     {.anchor        w}
  88.     {.borderWidth        0}
  89.     {.font                  $tixOption(bold_font)}
  90.     }
  91.  
  92.     tixDefOption {Listbox} {
  93.     {.background        $tixOption(light1_bg)}
  94.     {.relief        sunken}
  95.     }
  96.  
  97.     tixDefOption {Scale} {
  98.     {.foreground        $tixOption(fg)}
  99.     {.activeForeground    $tixOption(bg)}
  100.     {.background        $tixOption(bg)}
  101.     {.sliderForeground    $tixOption(bg)}
  102.     {.sliderBackground    $tixOption(light1_bg)}
  103.     {.font            $tixOption(italic_font)}
  104.     }
  105.  
  106.     tixDefOption {Scrollbar} {
  107.     {.background        $tixOption(bg)}
  108.     {.troughColor        $tixOption(light1_bg)}
  109.     {.relief        sunken}
  110.     {.borderWidth        1}
  111.     {.width            15}
  112.     }
  113.  
  114.     tixDefOption {Text} {
  115.     {.background        $tixOption(input1_bg)}
  116.     {.relief        sunken}
  117.     }
  118.  
  119.     #----------------------------------------------------------------------
  120.     # TIX WIDGETS
  121.     #----------------------------------------------------------------------
  122.  
  123.     tixDefOption {TixBalloon} {
  124.     {*background             #ffff60}
  125.     {*foreground             black}
  126.     {.background             black}
  127.     {*Label.font             $tixOption(font)}
  128.     {*Label.anchor             w}
  129.     }
  130.  
  131.     tixDefOption {TixBitmapButton} {
  132.     {*label.font             $tixOption(font)}
  133.     }
  134.  
  135.     tixDefOption {TixControl} {
  136.     {*entry.highlightBacground    $tixOption(bg)}
  137.     {*entry.background        $tixOption(input1_bg)}
  138.     {*entry.foreground        black}
  139.     {*entry.insertBackground    black}
  140.     {*label.font                  $tixOption(bold_font)}
  141.     }
  142.  
  143.     # DLG_BTNS
  144.     #
  145.     tixDefOption {TixStdButtonBox} {
  146.     }
  147.  
  148.     # DIR_LIST
  149.     #
  150.     tixDefOption {TixDirTree TixDirList TixScrolledHList TixTree} {
  151.     {*Scrollbar.background        $tixOption(bg)}
  152.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  153.     {*hlist.highlightBacground    $tixOption(bg)}
  154.     {*hlist.background        $tixOption(light1_bg)}
  155.     {*hlist.activeBackground    $tixOption(light1_bg)}
  156.     {*hlist.disabledBackground    $tixOption(light1_bg)}
  157.     {*f1.borderWidth        1}
  158.     {*f1.relief            sunken}
  159.     }
  160.  
  161.     tixDefOption {TixFileEntry} {
  162.     {*Entry.background         $tixOption(input1_bg)}
  163.     }
  164.  
  165.     tixDefOption {TixHList} {
  166.     {.background            $tixOption(light1_bg)}
  167.     {.activeBackground        $tixOption(light1_bg)}
  168.     {.disabledBackground        $tixOption(light1_bg)}
  169.     }
  170.  
  171.     tixDefOption {TixLabelEntry} {
  172.     {*entry.highlightBacground    $tixOption(bg)}
  173.     {*entry.background        $tixOption(input1_bg)}
  174.     {*entry.foreground        black}
  175.     {*entry.insertBackground    black}
  176.     {*label.font                  $tixOption(bold_font)}
  177.     }
  178.  
  179.     tixDefOption {TixLabelFrame} {
  180.     {*label.font              $tixOption(bold_font)}
  181.     }
  182.  
  183.     tixDefOption {TixMultiList} {
  184.     {*Listbox.borderWidth        0}
  185.     {*Listbox.highlightThickness    0}
  186.     {*Scrollbar.background        $tixOption(bg)}
  187.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  188.     {*Scrollbar.relief        sunken}
  189.     {*Scrollbar.width        15}
  190.     {*f1.borderWidth        2}
  191.     {*f1.relief            sunken}
  192.     {*f1.highlightThickness        2}
  193.     }
  194.  
  195.     # MwmClient
  196.     #
  197.     tixDefOption {TixMwmClient} {
  198.     {*title.font            $tixOption(menu_font)}
  199.     }
  200.  
  201.     tixDefOption {TixMDIMenuBar} {
  202.     {*menubar.relief        raised}
  203.     {*menubar.borderWidth        2}
  204.     {*Menubutton.padY         2}
  205.     }
  206.  
  207.     # NoteBook
  208.     #
  209.     tixDefOption {TixNoteBook} {
  210.     {.Background            $tixOption(bg)}
  211.     {.nbframe.Background        $tixOption(bg)}
  212.     {.nbframe.font            $tixOption(menu_font)}
  213.     {.nbframe.backPageColor        $tixOption(bg)}
  214.     {.nbframe.inactiveBackground    $tixOption(inactive_bg)}
  215.     }
  216.  
  217.     # OPTION_MENU
  218.     #
  219.     tixDefOption {TixOptionMenu} {
  220.     {*menubutton.font        $tixOption(font)}
  221.     }
  222.  
  223.     # PANED_WINDOW
  224.     #
  225.     tixDefOption {TixPanedWindow} {
  226.     {.handleActiveBg         $tixOption(active_bg)}
  227.     {.seperatorBg            $tixOption(bg)}
  228.     {.handleBg               $tixOption(dark1_bg)}
  229.     }
  230.  
  231.     # POPUP MENU
  232.     #
  233.     tixDefOption {TixPopupMenu} {
  234.     {*menubutton.background     $tixOption(dark1_bg)}
  235.     }
  236.  
  237.     # SCROLLED_HLIST
  238.     #
  239.     tixDefOption {TixScrolledHList} {
  240.     {*Scrollbar.background        $tixOption(bg)}
  241.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  242.     {*hlist.highlightBacground    $tixOption(bg)}
  243.     {*hlist.background        $tixOption(light1_bg)}
  244.     }
  245.  
  246.     tixDefOption {TixScrolledTList} {
  247.     {*Scrollbar.background        $tixOption(bg)}
  248.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  249.     {*tlist.highlightBacground    $tixOption(bg)}
  250.     {*tlist.background        $tixOption(light1_bg)}
  251.     }
  252.  
  253.     # SCROLLED_LISTBOX, .. ETC
  254.     #
  255.     tixDefOption {TixScrolledListBox} {
  256.     {*Scrollbar.background        $tixOption(bg)}
  257.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  258.     {*listbox.highlightBacground    $tixOption(bg)}
  259.     {*listbox.background        $tixOption(light1_bg)}
  260.     }
  261.  
  262.     tixDefOption {TixScrolledText} {
  263.     {*Scrollbar.background        $tixOption(bg)}
  264.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  265.     }
  266.  
  267.  
  268.     # SCROLLED_WINDOW
  269.     #
  270.     tixDefOption {TixScrolledWindow} {
  271.     {*Scrollbar.background        $tixOption(bg)}
  272.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  273.     {.frame.background        $tixOption(light1_bg)}
  274.     }
  275.  
  276.  
  277.     # SELECT
  278.     #
  279.     tixDefOption {TixSelect} {
  280.     }
  281.  
  282.     tixDefOption {TixTree} {
  283.     {*Scrollbar.background        $tixOption(bg)}
  284.     {*Scrollbar.troughColor        $tixOption(light1_bg)}
  285.     {*hlist.highlightBacground    $tixOption(bg)}
  286.     {*hlist.background        $tixOption(light1_bg)}
  287.     {*hlist.borderWidth        1}
  288.     }
  289.     # NON ALPHABETICAL ORDER WIDGETS
  290.  
  291.     # Since TK's option database follows the order-of-declaration rule, not
  292.     # specific-vs-general rule, the options of the widgets below depends on
  293.     # the options of the widget above, so their options must be defined here
  294.  
  295.     # COMBOBOX
  296.     tixDefOption {TixComboBox} {
  297.     {*Entry.font                $tixOption(font)}
  298.     {*Entry.highlightBacground        $tixOption(bg)}
  299.     {*Entry.background            $tixOption(input1_bg)}
  300.     {*Entry.foreground            black}
  301.     {*Entry.insertBackground        black}
  302.     }
  303.  
  304.     # FILE_SELECT_BOX
  305.     #
  306.     tixDefOption {TixFileSelectBox} {
  307.     {*Label.font                    $tixOption(bold_font)}
  308.     }
  309.  
  310.     tixDefOption {TixExFileSelectBox} {
  311.     }
  312. }
  313.  
  314. #----------------------------------------------------------------------
  315. # The default fontset and schemes
  316. #
  317. #----------------------------------------------------------------------
  318.  
  319. source ../DefSchm.tcl
  320. rename tixSetDefaultFontset         tixSetFontset
  321. rename tixSetDefaultScheme-Color     tixSetScheme-Color
  322. rename tixSetDefaultScheme-Mono     tixSetScheme-Mono
  323.  
  324. #----------------------------------------------------------------------
  325. # Action:
  326. #----------------------------------------------------------------------
  327. if [string match TK* [lindex $argv 1]] {
  328.     set isTK 1
  329. } else {
  330.     set isTK 0
  331. }
  332. set schemeName [lindex [split [lindex $argv 1] "."] 0]
  333. source [lindex $argv 1]
  334.  
  335.  
  336. tixSetFontset
  337.  
  338. if {[lindex $argv 0] == "-font"} {
  339.  
  340.     set isFont 1
  341.  
  342.     # FontSets will be set in two steps.
  343.     # (1) init fontsets
  344.     #     ... tix checks the validity of the fonts ...
  345.     # (2) add the fontsets into the option database.
  346.     #
  347.     puts "proc tixPref:InitFontSet:$schemeName {} { "
  348.     puts [info body tixSetFontset]
  349.     puts "}"
  350.  
  351.     puts "proc tixPref:SetFontSet:$schemeName {} { "
  352.     puts "global tixOption"
  353.     if {! $isTK} {
  354.     tixInitOptionDatabase 0
  355.     }
  356.     puts "}"
  357.  
  358.  
  359. } else {
  360.     set isFont 0
  361.  
  362.     # Do the Color First
  363.     #
  364.     puts "proc tixPref:SetScheme-Color:$schemeName {} {"
  365.     puts [info body tixSetScheme-Color]
  366.     if {! $isTK} {
  367.     tixSetScheme-Color
  368.     tixInitOptionDatabase 0
  369.     }
  370.     puts "}"
  371.  
  372.     # Now Do the Mono
  373.     #
  374.     puts "proc tixPref:SetScheme-Mono:$schemeName {} {"
  375.     puts [info body tixSetScheme-Mono]
  376.     if {! $isTK} {
  377.     tixSetScheme-Mono
  378.     tixInitOptionDatabase 0
  379.     }
  380.     puts "}"
  381. }
  382.